FOR EACH sct_det WHERE sct_sim = "standard" NO-LOCK,
    EACH pt_mstr WHERE pt_part = sct_part AND pt_status = "AC" NO-LOCK:
    FIND FIRST ptp_det WHERE ptp_part = sct_part AND ptp_site = sct_site NO-ERROR.
    IF NOT AVAILABLE ptp_det THEN
       DISP sct_sim sct_site sct_part sct_cst_tot pt_site pt_status pt_desc1
        WITH WIDTH 200.
END.
